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NAM ISIFP 
* 
ZER EQU SFO 
ot 


we % tt 


* CURRENT VERSION DATE 
MONTH/DAY/YEAR = 03/01/84 


* (C) 1982 INTEKFACE SYSTEMSsINC 

ae 

* WRITTEN BY BRUCE NORTH 

cS DAVID EJ] 

x 

se 

aS 

* THIS SWITCH DETERMINES THE USE OF THE PROGRAM 
DEBUG EQU 0 O FOR NGRMAL SYSTEMs 1 FOR DEBUGING 
* THIS SWITCH DETERMINES THE DEVICES BUFFER SIZE 
BUFSIZ EQU “4 BUFSIZ SWITCH SETTINGS: 

* ¢ = 1920 

* 5 = 3564 

x 

* THIS SWITCH DETERMINES FRONT PANEL FUNCTION 

K 

DUMMY EQU O 

* 

*K O = NORMAL FRONT PANEL FUNCTION 
* 1 = DUMMIED UP FRONT PANEL 
* THIS SWITCH DETERMINES THE TYPE OF FORM FEED DONE 
PPSLGE -£OU O 

4 O = NORMAL 

K 1 = HARDWARE 


se 
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=0000 43 IFE DEBUG 
=DFOO ay ORG $DFOO 
45 ELSE 
46 ORG $BFOO 
47 ENDIF 
48 AEE AE AE OE NE OK OK OK OK 2 KOK SE OO OK AE OK Ig ie 2k OE OK ie KOK oie ie ae a ae oie ae ie 2c aie 2 ok ae oie ae ae a ok 
49 CONFIGUATION DATA AREA 


50 sek kok a ak koa ae ak akc ake aka a ake aie ak ke a ae ak akc ake cake akc of fe ak eae ae ak akc ak ak ac oke ok ak ak ke ae ak 
DFOO 49 53 49 20 33 32 51 ASCIIG FCC "ISI 3274/76 INTERFACE! 
DFO6 37 34 2F 37 36 20 | 
DFOC 49 46 54 45 52 46 
DF12 41 43 45 


DF1i5 FF 52 FCB BFF 

DF16 FF 93 FCB $ FF 

DFl? 54 59 50 45 20 2D 5 4 CONFG1 FCC "TYPE = 151FP* 

DF1D 26 49 53 49 46 50 

DF23 FF 55 FCB SF F 

DF 24 26 45 52 53°49 4F 56 CONFG2 FCC ‘VERSION - 03/01/84' 


DF2A 4—E 20 20 20 30 33. 

DF30 2F 30 31 2F 38 34 

DF36 F F 57 FCB SFE 

DF37 42 55 46 46 45 52 26 CONFG3 FCC "BUFFER SIZE — 4K'* 
DF 3D 20 53 49 5A 45 20 

DF43 2D 20 34 4B 

DF47 FF 59 FCB $F F 

DF 48 43 48 41 52 2E 20 60 CONFG4 FCC "CHAR. TABLE — #630E13' 
DF4E 54 41 42 4C 45 20 

DF 54 2D 20 23 36 33 30 

DF5OA 45 31 33 

DF 5D FF 61 FCB Soe oe 

DF5OE 46 4F 52 4D 20 46 owed CONFG5 FCC "FORM FEED — NORMAL'® 
DF6E4 45 45 44 20 2D 29 

DF6A 4—E 4F 52 4D 41 4C 

DF 70 FF 63 FCB $FF 

DF71 46 52 4F 4&€ 54 20 64 CONFG6 FCC "FRONT PANEL — NORMAL! 
DF77 50 41 4E 45 4C 20 | 

DF/D 2D 20 4E 4F 52 4D 

DF83 41 4C 

DF&5 Pye ee 65 FCB $FFe SFE 
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=G006 
=0013 
=O011 
=§100 


=0001 
=0002 
=0004 
=Q0008 
=0010 
=0020 
=0040 
=0080 


=0040 
=0020 
=G010 
=O008 
=0004 
=0002 
=Q0Q01 


=0040 


=0008 
=0004 
=0002 
=QO00L1 


=3F00 
=CO0O0? 
=G0C5 
=0006 
=0002 
=0004 
=Q016 
=O02F 
=0035 
=OO1E 
=OQ00C 
=000D 
=Q015 
=6025 
=0050 
=O006C 
=O0Q5C 
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124 
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LUL 
XOFF 
XON 
TESTSW 


*% 


PERRBT 
FERRBT 
OVRNBT 
RDRFBT 
TDREBT 
DCDBT 
DSRBT 
IRQBT 


* 


SOP 


HLOBIT 
BSYBIT 
FLTBIT 
PEBIT 


IDLTMR 
MODMSK 
CR 

LF 

FF 

VCS 
BCKSPC 
Bet 
TRN 
IRS 
FFEBCD 
CREBCD 
NLEBCD 
LFEBCD 
EBCAND 
EBCPCT 
EBCAST 
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SUBTTL TYPE A RS-232 PROGRAM 


EQU 
EQU 
EQU 
EQU 


$06 
$13 
$11 
$8100 


LUL MODE IS A SIX IN THE MODe BYTE 


ACIA STATUS BITS. 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


Z00000001 
400000010 
Z00000100 
A£V0001000 
%Z00010000 
%Z00100000 
Z01000000 
%A10000000 


STATUS BYTE EQU'S 


EQU 
EQU 
EQU 
EQU 
EQU 
E QU 
EQU 


EQU 


EQU 
EGU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
FQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


$40 
$20 
$10 
$08 
$04 
$02 
$01 


$40 


$08 
$04 
$02 
S01 


$S3FOO 
O7 
$05 
$06 
$02 
$04 
$16 
$2F 
$35 
SLE 
$O0C 
$ OD 
$15 
$25 
$50 
$6C 
$5C 


XOFF CONT. 
XON CONT. 


CODE 
CODE 


(DC3) 
(DC1) 


PARITY ERROR BIT 

FRAMING ERROR BIT 

RECEIVER OVERRUN BIT | 
RECEIVE DATA REGISTER FULL BIT 
XMIT DATA REGISTER EMPTY BIT 
DATA CARRIER DETECT BIT 

DATA SET READY BIT (CTS) 
INTERRUPT BIT 


DATA CHECK BIT 

OPERATION COMPLETE 
EQUIPMENT CHECK 
INTERVENTION REQUIRED BIT 
SENSE DATA BIT 

INPUT CODE BIT 

SWITCH TRANSITION BIT 


START OPERATIGN CODE 


IDLE TIMER, 


HOLD BIT IN LOGICAL STATUS 
BUSY moon " Tt) 
FAULT "oft " " 
PAPER EMPTY Ye " " 


30 SECONDS 


THREE LOWEST QRDER BITS ARE MODE BITS 
ASCII CARRIAGE RETURN 

ASCII LINE FEED 

ASCII FORM FEED 

SCS CODE FOR VERTICAL CHANNEL SELECT 
SCS BACK SPACE 

SCS BELL CODE 

SCS TRANSPARENT 

SCS INTERCHANGE RECORD SEPARATOR 


EBCDIC 
EBCDIC 
EBCDIC 
EBCDIC 
EBCDIC 
EBCDIC 
EBCDIC 


FORM FEED 
CARRIAGE RETURN 
NEAT LINE 

LINE FEED 
ANPERSAND SIGN 
PERCENT SIGN 
ASTERISK 


ISIFP 
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=0040 
=0060 
=OO5F 
=GOFO 
=OOF1 
=0G0D3 
=00D4 
=00D5 
=000B 
=0005 
=0005 
=0001 
=0003 
=0002 
=OQOBF 
=0010 
=0030 
=O0Z2E 
=0020 
=O021 
=GCOA8 
=O0AC 
=O0AD 
=0014 
=0000 
=QOFF 


=5000 
=4800 
=4C00 
=4CO01 
=4C02 
=4C003 


=4400 
=4800 


=OOFE 
=(QOFD 
=OOFB 
=OQOBF 
=QO07F 
=OODF 


=OOF ? 
=OOFB 
=QOFD 
=QOFE 
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125 
126 
12/ 
128 
L29 
130 
131 


pcr 


133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 


151 


Loe 
153 
154 
155 
156 
15? 
158 
159 
160 
lol 
162 
163 
164 
165 
166 
167 
168 
169 
170 
L171 
l?v2 
1/73 
174 


175 


176 
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SPEBC 
HYPEBC 
EBCNOT 
EBCO 
EBC1 
EBCL 
EBCM 
EBCN 


f 


TRQCLR 
RDSTAT 
ACIADT 
ACIARS 
ACIACD 
ACIACL 


% 


FPLED 
FPSSEL 


RDYLED 
CHKLED 
HLDLED 
DISLED 
ALAKM 

PRTLED 


PLSEN 
FPSEN 
DIPSEN 
TSTSEN 


EQU $40 
EQU $60 
EQU $ OF 
EQU SFO 
EQU $F1 
EQU $D3 
EQU $D4 
EQU $D5 
EQU $08 
EQU 05 
EQU $05 
EQU $O1 
EQU $03 
EQU $02 
EQU $BF 
EQU $10 
EQU $30 
EQU $2E 
EQU $20 
EQU $21 
EQU $AB 
EQU SAC 
EQU $ AD 
EQU $14 
EQU $00 
EQU SFF 
ADURKESSES 

EQU $5000 
EQU $4800 
EQU $4C00 
EQU $4COl1 
EQU $4CO02 
EQU $4C03 
LED: EQuUsS 

EQU $4400 
EQU $4800 
EQU SFE 
EQU $FD 
EQU $FB 
EQU SBF 
EQU $7F 
EQU $ DF 
EQU $F? 
EQU SFB 
EWU $FD 
EQU SFE 
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EBCDIC SPACE 
EBCDIC HYPHEN 
EBCDIC NOT S 
EBCDIC ‘oO! 

19 i 

1 *; ° 

1 tye 

vf tN ¢ 


IGN 


VERTICAL TAB CODE 


HORIZONTAL TAB CODE 


DEVICE 
DEVICE 
DEVICE 
DEVICE 
DEVICE 
DEVICE 
DEVICE 
DEVICE 
DeBeCe 
DeBe Co 
DeBe Ce 
DeBeC 

DeBeCe 


BUFFER 
BUFFER 
BUFFER 
BUFFER 
BUFFER 
BUFFER 
BUFFER 
BUFFER 
to! 
a 
+; ¢ 
A 
tf 


DIRECT PAGE V 
CONFIGURATION SWITCH OFF 


ACTA 
ACIA 
ACTA 
ACTA 


FRONT 
+t 


CODE 
CODE 
CODE 
CODE 
CODE 
CODE 
CODE 
CODE 


ALUE 


A 


CARRIAGE RETURN 
END OF MESSAGE 
NEXT LINE 

FORM FEED 

tx 

SPACE 

AMPERSAND 
PERCENT SIGN 


ON 


XMIT/REC REGISTER 
RESET/STATUS REGISTER 
COMMAND REGISTER 
CONTROL REGISTER 


PANEL LED REGISTER 


ft 


SWITCH SELECT 


SELECT LED MASK 
PAPER EMPTY LED 
HOLD PRINT LED MASK 


DISABLE LED 
MASK 


ALARM 


PAGE LENGTH SWITCH ENABLE 


FRONT PANEL 


DIP 


rf rt 


id it 


TEST SWITCH AND 4 SWITCH DIP ENABLE 
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=0080 
=0040 
=0020 
=0010 
=0008 
=0004 
=0002 
=O001 


=0050 
=OG05F 
=QO5E 
=O005D 


=000B 
=0012 
=O019 
=O001D 


=OOFE 
=O0OFD 
=OOFB 
=OOF 7 
=OOEF 
=QOQDF 
=QOBF 
=OQ07F 
=QOEF 


=O1C0 
=Q005 


ISTFP.SRC 


177 
178 
179 
180 
181 
Lez 
183 
184 
185 
1&6 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
ell 
2l2 
213 
214 
215 
216 
rag ta 
ag es 
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2% EQU*S FOR CC REGISTER 


EBIT 
FBIT 
HBIT 
IBIT 
NBIT 
ZBIT 
VBIT 
Chat 


cQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


$80 
$40 
$20 
$10 
$08 
$04 
$02 
$01 


* PA SWITCH CODE EQU'S 


ATTN 
PAL 
PA2 
NOPA 


MCRON 
MCROFF 
MCRRST 
MCRTAB 
a 


x sk 2k 


LFSW 
BRP SW 
PALSW 
PAZSW 
HLDSW 
CANSW 
TSSW 
FF Sw 
ENSW 


SWCTRH 
SWCTRL 


EQU 
EQU 
EQU 
EQU 


$50 
$5F 
$5E 
$50 


MICR MODE SEQUENCE OFFSETS 


EQU 
EQU 
EQU 
EQU 


ll 
18 
25 
29 


FRONT PANEL SWITCH MASK EQU*S) ¥** 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 
EQU 


SFE 

$F D BUFFER REPRINT SWITCH 
$FB 

$F? 

BEF AQLD-ENABLE SWITCH 
$DF 

$BF 

$7F 

SEF 


$1C0 
$05 SWITCH COUNTER LOW 
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220 AE AEE ES AC 2 OK 3 2K KIC 2 OE 2 2K OE FE SE OE OK OK 2 I EC BI A EC OK OK CE i IE i CS OR OK 2K ak 2 ae 2k ai 2 2k aie 2K ae a ak ak ake 2 ok a ae ac ae a 


221 
222 * PRINTER AND CU QUTPUT AREAS 
223 
224 SS a oi ik icdoi loi oii i dol ioiokaiok doiiciiciok icggiciciaicgaiiok ack ick ace ak ae ak ak ake a ak 
=0000 225 ORG 0 
0000 =0001 226 STATUS RMB 1 STATUS BYTE 
0001 =Q001 22/ SWSTTS RMB 1 SWITCH STATUS BYTE 
0002 =Q001 228 KEYIC RMB 1 KEY INPUT CODE BYTE 
0003 =OQ001 229 SENSE RMB 1 SENSE DATA BYTE 
0004 =Q008 230 RESERV RMB 8 MEMORY RESERVED FOR PRINTER 
OOOC =0004 231 ID RMB 4 TERMINAL ID REGISTER 
0010 =Q001 232 MODEL RMB 1 1ST MODE BYTE (UNUSED BY PRINTER) 
0011 =O001 233 MODE2 RMB 1 2ND MODE BYTE 
0012 =Q0002 234 MSA RMB 2 MESSAGE STARTING ADDRESS REGISTER 
0014 =0002 235 ML RMB 2 MESSAGE LENGTH REGISTER 
0016 =Q001 236 ORDER RMB 1 ORDER BYTE 
0017 =0001 237 ORODRPM RMB lL ORDER PARAMETER BYTE 
0018 =G001 238 MPP RMB 1 MAXIMUM PRESENTATION POSITION 
0019 =Q031 239 RESRVD RMB 49 MEMORY RESERVED FOR CONTROL JUNIT 
OO4A =0004 240 TE St RMB 4 
OO4E =00C2 241 CUONLY RMB 2 MEMORY USED BY CONTROL UNIT ONLY 
242 
243 
=0002 244 DEE BUPSIZ=2 
245 BUFFER RMB 1968 BUFFER SIZE OF 1968 (2 K BUFFER) 
246 BUFEND EQU * 
247 ELSE 
0650 =OFBO 248 BUFFER RMo 4016 4 K BUFFER FOR MODELS 4 AND 5 
=1000 249 BUFEND EQU * 


250 ENDIF 
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=17FF 252 STACK EQU Z$17FF 
=1400 253 ORG $1400 
=1400 254 SCRTICH EQU * 
255 se ea fe aie ee ae ok ake ae ok ak oie fe ako akc ok ake ok ake ak ake ake ake akc ok aco 
256 * THE SCRATCH PAD AREA * 
257 ste ak ke a af a akc a abe ok ake ak ke ak ake ake a ak ake ae ake akc ake ok a ae ake fe ok af oe 
| 258 
1400 =0014 259 VTAB RMB 20 VERTICAL TAB SAVE AREA 
1414 =O00L1 260 VP3 RMB l VERTICAL POSe (LU3 CURRENT LINE) 
1415 =Q001 261 VP1L RMB 1 VERTICAL POSe (LU1 CURRENT LINE) 
1416 =Q001 262 LULLN RMB 1 SCS CURRENT LINEe NOT UPDATED BY LU3 OR FP 
1417 =0G001 263 MPL3 RMB l MAXe PRESENTATION LINE FOR LU3 
1418 =Q001 264 MPLI RMB l MAXe PRESENTATION LINE FOR LUI 
1419 =O001 265 TMARGN RMB l SCS TOP MARGIN 
141A =Q001 266 BMARGN RMB l SCS BOTTOM MARGIN 
1418 =O001 267 SVFFLG RMB a "RECEIVED AN SVE" FLAG 
141C =Q0014 268 HT AB RMB 20 HORIZONTAL TAB SAVE AREA 
1430 =G001 269 HP 1 RMB 1 HORIZONTAL e (LU1 CURRENT POSITION) 
1431 =0001 270 MPP3 RMB 1 MAXe PRESENTATION POSe FOR LU3 
1432 =OQ00L1 2/l MPP1 RMB J MAXePRESENTATION POSe FOR LUI 
1433 =O001 202 LMARGN RMB lL SCS LEFT MARGIN 
1434 =GOO1 23 RMARGN RMB 1 SCS RIGHT MARGIN 
1435 =G001 2?74 OVRFLG RMB 1 FLAG TO DISALLOW HOLD & PE DURING FF €& VT 
ra is, 
1436 =Q00L 216 SGFTFF RMB L 
1437 =Q001 old DULCAS RMB l FLAG FOR MONO/DUAL CASE 
1438 =QO001 278 LSTCHR RMB Ll 
1439 =O001 279 CONTL RMB 1 FLAG FOR HONOR/NO HONOR OF CONTROL CHARACTERS 
280 * CONTL=0 => NOHONOR 
281 ** CONTL=1 => HONOR 
L43A =Q001 282 IRCHOS RMB 1 FLAG SIGNALING IF IRQ WAS ENABLINGs DISABLING, 
283 ** OR FAULT CHECKING: 
284 * O=DISABLEs L=ENABLEs 2=FAULT CHK 
1438 =OQO001 285 TRNCNT RMB l COUNTER FOR # OF SCS TRANSPARENT BYTES 
143C =OQ001 286 COUNTR RMB l MISCELANEJUS COUNTER 
287 
143D =O0002 288 ERRCOD RMB 2 ERROR CODE BYTE 1: 
289 
290 F BIT ?¢@s GOT A RESET 
291 * BIT 65 GOT AN SSA ORDER 
292 * BIT 55 IRQ ERROR | 
293 * BIT 4s UNDEFe (NON-ABORT SOP WHILE 
294 * , PROCESSING AN ORDER) 
295 * BIT 3s IR POSTED IN THE STATUS 
296 * BIT 2s SDT POSTED IN THE STATUS 
297 * EC + SDT => INVALID ORDER 
298 * SOT => CANCEL | 
299 x BIT Ls INVALID COMMAND OR PARAMETER (CEC SET) 
300 * BIT Os GOT AN ABORT 
301 | 


302 * ERROR CODE BYTE 2: 
303 | 


ISIFP 
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143F 
1440 
1442 
1443 


1444 


1445 
1447 
1449 
1448 
144D 
144F 
1451 
1453 
1455 
1457 
1458 
1459 


145A 
1458 
145D 
145F 


1561 
1562 


1564 


1566 > 


1567 
1568 
1569 
156A 
1568 


156D 
1573 
1574 


=0001 
=0002 
=0001 
=Q001 


=O001 


=0002 
=0002 
=0002 
=0002 
=0002 
=C002 
=0002 
=0002 
=0002 
=O001 
=0001 
=0001 


=0001 
=0002 


=0102 
=1561 


=OQ001 
=0002 
=G002 
=0001 
=Q001 
=Q001 
=Q001 
=0001 
=0002 
=156D 
=Q006 
=O001 
=Q001 


ISIFPeSRC 


304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
352 
333 
334 
335 
336 
ao4 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 


55-Mar-84 


K 
xk 
* 
mK 


SWITCH 
CKSUM 
HEXSAV 
DSPFLG 
*K 


FLFLG 
ENTIMR 
HLDTMR 


MSGEND 


MLSAV 
MLSAV2 
ENDMP 
ENDVAL 
XSAV 
TRNSTR 
CLONT5 
LEDREG 
HIFLG 


INCNT 
INEND 
OUTPTR 
OQUTBUF 
OUTEND 


SLUSND 


BUFPT1 
BUFPT3 
XFLAG 

CASES 
AUTOSW 
CANFLG 
EBUFCT 
EBUFPT 
EBUFBG 


-EBUFER 


PTRMOV 
MLTFNC 


+ 


+ ot tt 


Ae 
at 
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RMB 
RMB 
RMB 
RMB 


RMB 


RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 


RMB 


RMB 
RMB 
RMB 
RMB 


RMB 
RMB 
RMB 
RMB 
EQU 


RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
EQU 
RMB 


RMB 


RMB 


RS-232 


Ree N rE 


rt 


RON IO FR 


+ 


mr oO CNR RRR ENN Fe 


ESCAPE BEFORE CHARACTER 


Page 5-1 
BIT 7+ UNDEFe (CENA/SOP WHILE ENABLED) 
BIT 65 UNDEFe (NON=PDI FRQ WHILE DISABLING) 
BIT 55 INVALID NMI (NMI/SWI/IRQ INTERRUPT) 
BIT 4s TOP AND BOTTOM BOARD FIRMWARE MISMATCH 


HOLDS TEST SWITCH SETTING 
16 BIT CHECK SUM STORAGE 
HOLDS TEST SWITCH SETTING DURING HEX DUMP 
FLAG FOR DISPLAY/NON-DISPLAY FIELD 
DSPFLG=1 => NONs DSPFLG=0 => DISPLAY 
FLAG FOR REC./NOT REC. A NOT SIGN VERTe BAR L SEQ. 
SVFFLG=1 => RECEIVED, SVFFLG=0 => NOT 
TIMING COUNTER DURING ENABLE AND IDLE 
HOLD TIMEOUT TIMER 


SAVE AREA FOR ML AREA OF CONTROL UNIT OUTPUT AREA 
ML SAVE FOR ESCAPE SEQUENCE CHECK 

END ADDRESS FOR HEX DUMP 

SAVE AREA USED IN HTSUBs AND VTSUB 

GENERAL X REGe SAVE AREA 

ADDRESS OF START OF SPECIFIC TRANSLATE TABLE 


LED REGISTER 
DEBCUNCE HANDSHAKE FLAG 


NUMBER OF CHARACTERS IN OQUTPUT BUFFER TO BE PRINTED 
POINTS TQ NEXT EMPTY LOCATION IN OUTPUT BUFFER 

POINTS TO NEXT CHARACTER IN OUTPUT BUFFR TO BE PRINTED 
OUTPUT BUFFERs HAS EXACT CHARS TO BE SHIPPED TO PRINTER 
END OF QUTPUT BUFFER 


PRINTER SLU SEND FLAGs 1=SENDs O=RECEIVE 
POINTS INTO INTERFACE BUFFER IN LUL MODE OPERATION 
POINTS INTO BUFFER IN LU3 

1 IF XOFF RECeos0 IF NOT 

O=MONQs L=DUAL 

O=NO AUTO FF AFTER LOCAL PRINTs L=AUTO FF 
L=CANCEL SWITCH SET» O=NOT SET 

ESCAPE BUFFER CHAR COUNT 

ESCAPE BUFFER POINTER (NEXT OPEN LOCATION) 
ESCAPE BUFFER BEGINNING 

6 CHAR ESCAPE BUFFER 

INDICATES POINTER HAS MOVED IN CKESC1 


INDICATES MULTIPLE CHARe FUNCTION IN CNTRLI 


SO-CHAR-SI 
NOT ASSIGNED 
" it 


PWN eR 
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3 5 6 sk te A .) 
3 5 7 *k tt 1% 5 
3 5 8 *% | +f 7 
1575 =0001 359 SGLDBL RMB 1 RS=232 SPACING INDICATOR O=SINGLEs 1=DOUBLE 
1576 =Q001 360 PASAY RMB 1 PENDING PA INPUT 
1577 =O001 361 DISSEM RMB 1 DISABLE SEMAPHORE FOR THE DISPATCHER 
1578 =0001 362 DMPFLG RMB 1 HEXDUMP IN PROCESS FLAG 
1579 =QOOE 363 DMPSAV RMB 14 MACHINE STATE BEFORE HEXDUMP 
364 * 
1587 =C001 365 MCRFLG RMB 1 MICR MODE FLAG (XX=MICR-MODEs OO=NORMAL MODE) 
366 * : | 
1588 =OQ001 367 LULDIR RMB 1 LUL PRINT DIRECTION SAVE (€0=L==->R5 X=L<—--R) 
1589 =O001 368 BIPRNT RMB 1 MACH. DEFe DIRECTION FLAG (O=L=——>R»y X=L<—--R) 
158A =0001 369 NLSOVD RMB 1 OVERRIDE NULL LINE SUPPRESSION IN LU3 MODE 
370 * O=NORMAL» X=TREAT NULL AS SPACE 
=0000 371 IFE DUMMY 
=4400 372 FPSREG EQU $4400 FRONT PANEL SWITCH REGISTER 
373 ELSE 
374 FPSREG RMB 1 - ” DUMMY LOCATION 


375 ENDIF 
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377 ME AEE HE Be aE A OE ae ie a OE OE OE IC 2 OC ae 2 I ai a a AE 2 aK ie A ae aE afk 2 ae 2S ae IC afk aK ie AC ae 2 Oe i ik a aK ie 2 2 2K ak te 2K 


378 ¥ SET UP THE INTERRUPT VECTORS | | x 
379 FO oR ak dak Gi iol dak koko i doi koko dgkokok kaki ak lok dak a ak ak ake ake ak ak ag ake ak akc akc a 
380 
3@1 
382 
=0000 383 IFE JEBUG DEBUG VERSION FOR EXORCISER? 
=FFE8 384 ORG SFFE8 NOs SET UP ESCAPE BUFFER AND 
385 ELSE 
386 ORG $DFES8 2/732 DEBUG 
387 ENDIF 
388 * DUMMY FRONT PANEL VALUES 
389 * 
FFES FC 390 SWTBL FCb 411111100 6 LPIsSINe SPACEsDUAL CASE AUTO FF 
FFE 9 00 391 FCéb 200000000 ENGLISH 
FFEA FF 392 FCB ALeLiTidid FRONT PANEL SWITHCES DISABLED 
FFEB 99 393 FCB Z1L0011001 PAGE LENGTH = 66 
394 
FFEC 50 395 LULES1 FCB EBCAND 
FFED 6C 396 LULES2 FCB EBCPCT 
FFEE 30 397 LU3ES1 FCB DBCAND 
FFEF 2E 398 LUZES2 FCB DBCPCT 
399 
FFFO 0000 400 IVECS FDé @ RESERVED 
FFF 2 E1L53 401 | FDB DISSA SET UP SwW1I3 VECTOR 
FFF4 E1LC& 402 FDB OPDONE SET UP SWI2 VECTOR 
FFF6 ELeZT 403 FDB FRQSUB SET UP FIRQ VECTOR 
FFF8 EQ85 404 FDB NMISUB SeT UP IRG VECTOR 
FFFA E0845 405 FDB NMISUB SWI VECTOR 
FFFC E085 406 FDB NMISUB NMI VECTOR 
FFFE EOQO 40/7 FDB START SET UP RESET VECTOR 
=Q000 408 IFE DEBUG DEBUG SWITCH SET? 
=E0Q00 409 ORG $EOCO NOs JUST SET UP FOR 2732 PROM 
410 ELSE 
411 ORG $CO00 YESs+ SET UP FOR EXORCISER 
412 ENDIF | 


ISIFP CR6809/11 version 16236220 


TYPE A RS=-232 PROGRAM 


ISIFP «SRC 


414 
415 
416 
417 
418 
419 
420 
421 


423 
424 
425 


427 
428 
429 
430 
431 
432 


434 
435 
436 
437 
438 
439 


441 
442 
443 
444 
445 
446 
447 


449 
450 
451 
452 
ao3 
454 
455 
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MEK RK AE OK 2S ae ES OE 2 OAS OE AS AC OE NS aK AS aK OK aE 2K 2 BEE KO AR AS SE a AC CO AE A AS I OK Oe 2 OI OK OE 2 


* 


+ 
+ 
tt 
% 
* 


* MACRO DEFINITIONS 
ROG oi io a doigok uicioicioiak doi cick aiok daakckiok acs ski ack ac ak ik ok ak 
ION MACRO 
ANDCC HINFBIT 
ENDM 
IOFF MACRO 
ORCC H#HFBIT!+IBIT 
ENDM 


* ** SW2 IS THE SVC CALL TO SIGNAL THAT AN LU1 PRINT IS COMPLETE (OCSWI) 


SWe MACKO 
SWI2 
ION 
ENDM 


* ** SW3 IS THE SVC CALL TO DISABLE TO RETURN STATUS INFO DURING A PRINT 


SW3 MACRO 
SWI3 SWI3 EMULATES A POLL DISABLE 
TON 
ENDM 


+ 


16 BIT LOGICAL SHIFT (LEFT) 


LSLD MACRO 
LSLB 
ROLA 
ENDM 


ae 16 BIT LOGICAL SHIFT (CRIGHT) 


LSRD MACRO 
LSRA 
RORB 
ENDM 
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TYPE A RS=232 PROGRAM  ISIFP+SRC 
457 Joklok dak dokokokaiak lok ok dokokgiok ok dok doko iGiok dak gol iok iolok lok goigkokica kook dog dca ak ake ake oka ak 
458 * POWER ON RESET ROUTINE * 
459 JO GG ogc loko oii oo Glob lolol lok dak lok okakaaigiokal doko dak kak kkk 
460 
461 
=14 462 SETDP DIRPGE 
463+ START IOFF SET INTERRUPT MASK 
EOCO 1A 50 | 464A ORCC HFBIT!+IBIT 
E002 LOCE 17FF 465 LDS #STACK 
E006 86 14 466 LDA HDIRPGE 
E008 lF 88 467 TER A sDP 
EQOA 7F 5000 468 CLR IRQCLR 
EQOD 8E Q000 469 LDX #O 
EO10 CC 0000 470 LDD #O 
471 
E013 ED 81 472 LO$ STD OgsXt++ 
E015 8C 1800 473 CMPX #H(STACK+1) 
E018 26 FYI 474 BNE 10% 
475 
EOLA BD F3DF 476 JSR LEDOFF TURN OFF ALL LEDS DURING INIT 
EO1LD BD F3F6 477 JSR UVINIT INITIALIZE THE DEVICE 
E020 86 FE 478 LDA #TSTSEN 
E022 BD F5OA 479 JSR FPREAD READ 4 SWITCH DIP 
E0Q25 B6 4400 480 LDA FPSREG READ SWITCH SETTING 
EO28 84 OF 481 ANDA #ZOF ONLY INTERESTED IN LOW 4 BITS 
EOZA BD F412 482 JSR CHKSPC DEFAULT TO 6 LPI» SINGLE SPACING 
EO2D BD F42A 483 JSR CHKCSE MONO CASE 
EQ30 BD F43A 484 JSR CHKAUT NO FF AFTER OPERATOR INITe LOCAL PRINT 
E033 BD FO7? 485 JSR FLSWSB INITIALIZE FORMS LENGTH 
EO36 OCD 17 486 TST MPL3 FRONT PANEL SET TO QO? 
E038 26 O02 487 BNE 20% -NOUs, 
488 
EO3A OC 36 469 INC SOFTFF ~YESs FLAG HARDWARE FF 
490 
EO3C B6 C198 491 20$ LDA MAXLEN INITIAL LU1L LINE LENGTH IS 132 
EOSF 97 31 492 STA MPP3 
EO41 BD EE54 493 JSR VIDFLT DEFAULT SCS PARAMETERS 
E044 BOD EFOC 494 JSR HTDFELT 
EQ47 oc 59 495 INC HIFLG INITIALIZE SWITCH DEBOUNCE FLAG 
EQ49 BD F30A 490 JSK BFINIT INITIALIZE LINE BUFFER 
EQ4C BD F445 497 JSR DIPSWS8 INITe TRANS. TABLEsNULL LINE OVERRIDE 
498 * & BI=-DIRECTIONAL PRINT 
EQ4F 7D C196 499 TST CONFIG DEVICE SUPPORT MICR ? 
FO52 2¢f OC 500 BEQ 30% 
501 
EQ54 (F 1587 5G2 CLR MCRELG CLEAR MICR FLAG 
EQ57 BE C196 503 LDX #CONFIG SEND MICR RESET SEQUENCE 
EQ5A 30 8&8 19 504 LEAX MCRRST 9X 
EOS) BD FOSO 503 JSR OUTX 
EO60 BD E083 506 30$ JSR TSTSW 
E063 86 FE 507 LDA HRDYLED | 
E065 BD F3E9 508 JSR LEDON PRINTER IS NOW READY 


ISIFP CRO809/11 version 10.36220 5-Mar-84 8:49:56 Page 8-1 
TYPE A RS-232 PROGRAM ISIFPeSRC 


E068 7E F652 509 JMP ABOPRT 


ISIFP 


CRO809/11 version 10.36.20 
TYPE A RS=—232 PROGRAM 


EQ6B 
EO6D 
EO70 
EO74 
EO? 
EO79 
EO?7B 
EO7D 
EO?F 
EOQ81 
E083 


E085 
EO8?7 
EO8A 


LA 


50 


LOAE E4 


LOCE 1/FF 


8E 


86 
BD 
3B 


E785 


20 
E3B9 


ISIFP.SRC 


511 
512 
513 
514 
515 
516 
517+ 
518A 
519 
520 
D921 
522 
523 
524 
525 
526 
527 
528 


530 
531 
D2 


5~Mar-84 


82:49:56 


Page 9 


ROCCO a GI Ga ic a Gk gai ack i iat akg ask ak ak ak ae ale a 


* 


SET UP STACK SUBROUTINE 


Sot ik Kk koa akg ak ok ak ak ak ak ak ok ed ak ok ak kok ak ak ai ak ake ake ake akc akc ak ke a a ake ake ae ake akc ake ak ak akc ak afk ok 


SETSTK 


NMISUB 


IOFF 
ORCC 
LDY 
LDS 
LDX 
PSHS 
LEAS 
PSHS 
LEAS 
LDA 
PSHS 
JMP 


LDA 


JSR. 
RTI 


FFBIT!+IBIT 


OsS STORE RETURN ADDRESS IN Y 

HSTACK INITe STACK POINTERS 

#LULMSG 3 

X SET STACK TO SIMULATE SWI» AND PUT ON PC 
-69S 

DP PUSH DP REGISTER OF $314 ON STACK 
—29S 

#(EBIT!+IBIT) 

A PUT ON CC REG WITH FIRQ ENABLED © 
Ory Y HAS RETURN ADDRESSs SO SAME AS RTS 
#420 

EBT2O0N 


ISTIFP 


CR6809/11L version 10.36.20 
TYPE A RS=—232 PROGRAM 


EO8B 
EQ8D 
EO8F 
EOQ91 


E093 


E095 
E098 
EQ9B 


EO9D 
EOQQE 
EOQQOF 


EOAL 
EQA3 


EQA6 
EOA? 
EOA9 
EOAB 


EOQAD 
EOAF 
EQB2 
EQB5 


EOB 7. 


EOR8 
EOBA 
EQBC 
EOQBF 


EQC1 


EOC4 
EOC5 
EQC? 
EOC9 


34 
96 
85 
270 


34 


39 
32 
35 
BD 
35 


FO 


23 
C4 
D1 
39 


02 
EOCA 


EOCL 
10 


05 
FE 
F 3DF 
84 
E8 
3F 
0190 


E98E 
DE 


62 


F3D8 
95 


8100 


OF 


ISTFP.eSRC 


534 
539 
536 
537 
538 
039 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 


567 
568 


“269 


970 
af 1 
572 
573 
21-4 
575 
576 
510 
375 
a9 
980 
581 
552 
58 3 
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SCO IG Goi go icick ik ici ioiok ick ickai ici ack tdci akc a eck a ok ak ak ak a ak a ak 
x TEST SWITCH ROUTINE 

* SWITCH DEBOUNCE DELAY = L SEC. (APPROX) 


kl io lok tok kok ge kk koko kg lokakokok ick a ick kok oak ak kai aleak aia sk ake ake ak ok akc ag akc ake ake ak ake ak ae ak ake ak ae ak 


TSTSW 


1% 


3% 


2S 


BADSW 


NORMAL 


NRMRTS 


GETSW 


PSHS 
LDA 
BITA 
BEQ 


PSHS 


LDX 
JSR 
BNE 


ASLB 
TSTEB 
BEQ 


LDA 
JSR 


ABX 
LDX 
JSR 
BRA 


STB 
LDX 
JSR 
BRA 


RTS 


LEAS 
PULS 
JSR 

PULS 


LDB 


COMB 
ANUB 
CMPB 
RTS 


AsyBoX SAVE REGISTERS 

LEDREG 

#!NCHKLED CHECK LED JN? 
NRMRTS “YES s RETURN 

A STORE FRONT PANEL LEDS 


#SWTABL SETUP SUBROUTINE VECTOR 


GETSW GET CURRENT SWITCH VALUE 
24 SAME AS LAST TIME? 
~YES, GO TO SUBROUTINE REQUESTED 
SWITCH = 0? 
3$ ~ YES, DONT TURN JEF READY LED 
#RDYLED - NOs TURN OFF READY LED BEFORE )OING FUNCTION 
LEDOFF 
OX 
05x 
1$ 
SWITCH -NOs DEBOUNCE AND TRY AGAIN 
#400 
XTIMER WAIT A SEC 
1$ TRY AGAIN 
Des EXIT FOR NORMAL OPERATION 
A RESET FRONT PANEL LEDS 
NEWLED 
AsBsXsFC 
TESTSH READ THE TEST SWITCH 
#$0F 
SWITCH 


ISIFP 


CREB809/11 version 10236.-20 
TYPE A RS=232 PROGRAM 


EOCA 
EOCC 
EQCE 
EODO 
EOD2 
EOD4 
EOD6 
EOD8 
EOQCDA 


~EODC 


EQDE 
EOEO 
EOE2 
EOE 4 
EQE6 
EOES& 


EOBS& 
EA3B 
EA66 
EA84 
EQB? 
EOB? 
EBAA 
EOEA 
E068 
EOB? 
EOB?/ 
EOB? 
EOB? 
EOB? 
EQB? 
EQB? 


ISIFPeSRC 


585 
5656 
587 
588 
589 
590 
591 
992 
593 
594 
595 


"296 


597 
598 
599 
600 
601 


55-Mar-84 


a 
SWTABL 


82492556 

FDB NORMAL 
FDB VRSTON 
FDE ERRPRT 
FDB HEXDMP- 
FDB BADSW 
FDB BADSW 
FDB MEMTST 
FDB LLP 
FDB NORMAL 
FDB BADSW 
FDB BADSW 
FDB BADSW 
FDB BADSW 
FDB BADSW 
FD6 BADSW 
FDB BADSW 


Page il 


MODE 

NORMAL 

VERSION & TYPE #°S 
PRINT ERROR BYTE 
PRINT HEX93270sLU1 


NORMAL RAM TEST 
LONG LINE PRINT 
AUTO HEX DUMP 
UNDEFINED 


SWITCH # 


TMOONWYF OON TUS WN EF OO 


$ FF 
$FE 
$F D 
SFC 
$FB 
SFA 
SFY 
$F 8 
$F? 
$F 6 


ISTFP CRE809/11 version 10.36.20 S—Mar-84 8:49:56 Page le 


TYPE A RS=-232 PROGRAM ISTFPeSRC 

603 AAA GEG ICI Gc Gi iG ia Cig Cgc go go ioakak ke ak ak isk ake a a ak 
604 
605 * LONG LINE PRINT ROUTINE, TEST SWITCH 7 
606 
607 2B GG oi io igi oii oid goiciokok a dciakoioak deci ac ak skak ak oak ak ak 

EOEA C6 &4 608 LLP LDB #132 MAX COLUMN LENGTA 

EQEC 86 20 609 PRTO LDA #%20 LOAD UP A D.BeC ZERO 

EQEE BD F20D 610 JSK QOUTCHR OQUTPUT ZERO 

EOFIL 5 A 611 DECB END OF LINE? , 

EQF2 26 F8 612 BNE PRTO - NO» CONTINE TO PRINT ZEROS 
613 

EOQF4 BD FLE6 614 JSR EOL - YESs INSERT NL CODE 

| 615 

EOF? C6 84 616 LDB #132 MAX COLUMN LENGTH 

EOF 9 86 A? 617 PRTH LDA HLA/ CHARACTER GENERATOR ‘H! 

EOFB BD F20D 618 JSR QOUTCHR QUTPUT ‘*H' 

EOFE 2 A 619 DECB END OF LINE? 

EOFF 26 F8 620 BNE PRTH - NQs CONTINUE TO PRINT LINE 
621 

ELOL BD F1E6 622 JSR EOL - YES» INSERT NL CODE 
623 

E104 C6 02 624 LDB #2 

E106 Dé 3C 625 STB COUNTR SET UP 2 LINE COUNTER FOR CHARACTER GEN. QUTPUT 

E108 C6 84 626 LDB #132 — 

ELOA 86 08 627 LDA #Z08 LOAD UP FIRST CGEN CHARACTER TO PRINT 
628 

E10C BD F20D 629 PRTCGN JSR QUTCHR 

E1OF 4C 630 INCA 

E110. 81 CO 631 CMPA #SCO START OF ATTRIBUTE BUFFER? 

Ell2 26 02 632 BNE NXTCHR = NOs GET NEXT CHARACTER FROM CGEN 
633 

E114 86 08 634 LDA #$O8 —~ YESs START OVER WITH FIRST CHARACTER 
635 

E116 5A 636 NXTCHR DECB , AT END OF LINE? 

Ell? 2G F3 63/ BNE PRICGN - NOg CONTINUE TO OUTPUT CHARACTER 
638 

E119 34 O2 639 PSHS A SAVE CHARACTER 

E118 BD FLE6 640 JSR EOL - YES» INSERT NE CODE 

ELLE 35 O02 641 PULS A PULL CHARACTER BACK 

E120 C6 &4 642 LDB #132 COLUMN COUNTER 
643 | | 

El22 OA 3C 644 DEC COUNTR DECREMENT CGEN COUNTER 

E124 26 E6 645 BNE PRTCGN IF TWO LINES HAVE NOT BEEN OQUTPUTs CONTINUE 
646 

E126 Che, 647 RTS ELSEs RETURN 


ISIFP 


CR6809/11 version 10.36.20 


TYPE A RS-232 PROGRAM 


El2? 
E12A 
E12D 


El2F 
EL31 
E134 
E136 


EL3A 
E13B 


E13E 
E141 
E144 
E148 


E14B 
E14E 


EL4F 


E151 


E153 
EL 
E158 
EL5A 


E15D 


E160 


E162 


E164 
E165 


E168 
E16B 
ELOG 


7F 
7D 
27 


32 
F6 
Cl 


5000 
1577 
1C 


63 
1577 
02 


102/ 0019 


13 
BY? 


7F 
BD 


5000 


1577 
E205 


102/ OOOB 


te 


BD 
3B 


LA 
34 


1c 


LA 


13 
BY? 


TC 


12 


E174 


E1L4F 


80 
LF 


5 0 
157? 


FoED 


1577 


BF 


50 


5000 


1577 


ISTFPeSRC 


649 
650 
651 
652 
653 
654 
655 
656 


658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 


677 
678 
679 
680 
681+ 
682A 
683 
684 
685 
686 
68/7 
686+ 
6B9A 
690+ 
O9LA 
692 
693 
694 
695 
696 
697 
698 


55-Mar-84 


* 
x 


FROSUB 


1% 


TRQSIM 


ate 
“* 


8249256 


FRQSUB IS REACHED WHEN INTERRUPTED FROM 


WHEN PRINTING, 


CLR 
TST 
BEQ 


LEAS 
LDB 
CMP 5 
LBEQ 


SYNC 
STA 


CLR 
JSR 
LBEQ 
JMP 


JSR 
RTI 


ORCC 
PSHS 


IRQCLR 
DISSEM 
1% 

39S 
DISSEM 


#302 
DISSA 


IR@CLR 
DISSEM 
ENATST 
DISSA 

DSPTCH 


TRQSIM 


HEBIT 


JsY¥oXsDPeBsAsCC 


IRCHOS=2. 


Page 13 
MIDLER", IRCHOS=05 OR 
IN EITHER CASEs WE GO DISABLED 
CLEAR FIRQ RIGHT AWAY (< 30 NSECQONDS) 
PDI WHILE DISABLING? 
—-NOs NORMAL PDI FIRQ 
-YESs REMOVE FIRQ 


PDI WHILE GOING INTO SYNC STATE? 
“YES, DISABLE AGAIN 


DISABLE AND WAIT FOR ENA/SOP 


PEN? 
~YESs 


DISABLE AND RETURN SA 


PUSH PC OF RTI 


PUSH THE REST OF THE MACHINE STATE 
AND DISABLE 


MEE IK A AEE EC KC A A 2 fe 2K ae I 2 AK a aC ai a ik aie aie ak a aie of ake ok aie aK ie oft ae ok 2 ok ok ak oie a ie ake ak ie kc 


* 


ale she ste ste ole Ye ale ok 
AEE EAE A AS AS OK 


DISSA 


TH 


IOFF 
ORCC 
CLR 
LDA 
JSR 


INC 
TON 


ANDCC 


IOFF 
URCC 
SYNC 
STA 


INC 
NOP 
NOP 


ek 


DISABLE SUBROUTINE * 
ROGGE CGI ok IG gc koi de ak kk ak ak 4 ak 


MASK INTERRUPTS 


HFBIT!+IBIT 


DISSEM 


FDISLED 


LEDON 


DISSEM 


HINFBIT 


TURN ON DISABLE LED 


#FKITI+IBIT 


TRQCLR 


DISSEM 


ISIFP CR6809/11 version 10236420 
TYPE A RS=232 PROGRAM 


E16D 


E1L6F 
El/1 


1C BF 


1A 50 
TF LOd¢ 


ISTFP.eSRC 


699+ 
100A 
fO1l+ 
102A 
103 


55-Mar-84 


8:49:56 Page 13-1 
ION 
ANDCC H#H'INFBIT 
IOFF 
ORCC HFBIT!I+IBIT 
CLR DISSEM 


FALL INTO DSPTCH 


ISIFP CR6O809/11 version 10236220 


TYPE A RS—232 PROGRAM ISIFP.SRC 
E174 BD £205 
E177 26 14 
E179 BD ELD 
E1L7C OD 3A 
E17E 27 Ol 
E180 3B 
E181 OC 3A 
E183 BD E20E 
E186 OA 3A 
E188 26 3B 
E1BA 7E E153 
E18D BD E1ES 
E190 Fe 0016 
E193 Cl FO 
E195 1027 006 
E199 Cl Ol 
E19B 1027 O1BF 
E19F 96 3A 
ELAL 81 03 
E1LA3 23 O07 
E1A5 86 10 
ELA? BD E3Bl 


ELAA 96 3A 


ELAC Cl O02 


705 
706 
707 
708 
109 
#10 
“11 
iz 
(13 


715 
716 
717 
718 
719 
720 
72. 
122 
23 
124 
725 
726 
27 
128 
729 


731 
132 
733 
134 
£35 
136 
737 
738 
739 
1740 
741 
142 
143 
744 
145 
146 
147 
148 


55-Mar-84 


x OK 


' 
3 


ee 
x 


DSPTCH 


* KK 


1$ 


SOPCMD 


1% 


8249256 


JSR 
BNE 


JSR 
TST 
BEG 


RTI 


INC 
JSR 
DEC 


BNE 
JMP 


JSR 
LDB 


CMPB 
LBE@ 


CMPB 
LBEQ 


LDA 
CMPA 
BLS 
LDA 
JSR 
LDA 


CMPE 


IRCHOS 


ENATST 
SOPCMD 


ENASUB 
IRCHOS 
1% 


IRCHOS 
IDLER 


IRCHOS 


PCMD1 
DISSA 


SGPSUB 
ORDEK 


#EFEO 
RESCMD 


#SO1 
ABOCMD 


IRCHOS 
#303 
1% 


#310 
EBITON 
IRCHOS 


#EO2 


Page 14 


BRANCH OFF IRCHOS T 


0 
0 
1 
2 
3 


GO ENABLE) AND IDLE>, 


START AN OPERATION, 


=> 
=> 
=> 
=> 


OR 


OR GO ENABLED 
NOTHING ON STACK 7 

IDLER ON STACK 

GOPERATION ON STACK 


OPERATION ON STACKysy IDLER ON STACK 


BEGIN AN 


OPERATION? 
mY ES : 


RETURN TO OP IN PROCESS 
~NO» PEN 
RETURN TO PREVIOUS OPERATION OR IDLER 


FLAG "IDLE IN PROCESS" CIRCHOS=1) 


FLAG "NOTHING IN PROCESS" (CIRCHOS=0) 
OR "PRINT IN PROCESS" (IRCHOS=2) 


IDLE TIMEOUTs DISABLE AND RETURN SA 


RESET COMMAND? 
“YES-s DO IT 


ABORT COMMAND? 
“YESs DO IT 

ORDER ALREADY IN PROCESS? 
-NO» NO PROTOCOL VIOLATION 
—“YESs FLAG AN ERROR 


SSA ORDER? 


ISTFP 


CR6809/11 version 10236.20 
TYPE A RS=232 PROGRAM 


ELAE 


E1B0 
E1B3 


E1B6 
E1B8 


E1BA 
E1BD 


E1CO 
E1C2 


E1C4 


E1C5 


E1C8 
E1CA 
E1CC 


E1LCF 


ogi BBE 
E1D3 
E1D6 


ELD9 
E1DC 
ELDE 
ELEO 


E1E2 
ELE5 


ELE? 


E1ES8 
ELEA 
ELEC 
ELEE 
ELF. 
E1lF4 


26 


BD 
TE 


Cl 
27 


BD 
7E 


81 
27 


3B 


BD 


06 


E263 
E1C8& 


03 
C6 


E337 
F1iC8 


O02 
Ol 


E29B 
3A 
E1D1 
3A 
DF 


F3DF 
E153 


3A 
3A 


FoE9 
E1LFA 
0001 


ISITFP.eSRC 


149 
750 
751 
152 
1293 
134 
155 
(56 
757 
158 
159 
160 
761 


(62. 


763 
764 
765 
166 
167 
168 
169 
770 
771 


te 


773 
(74 
(75 


Cee 
778 
779 
180 
781 
7&2 
183 
784 
785 


187 
188 
189 
790 
TOL 
192 


5-Mar-84 


2% 


PRTCMD 


POMD 1 


OPDONE 


ABODON 


OPD1L 


ENASUB 


1% 


SOPSUB 


8:49:56 
BNE 2% 
JSR SSACMD 
JMP OPDONE 
CMPb #$03 
BEQ PRTCMD 
JSR INVALD 
JMP OPDONE 
CMPA #ZO?Z 
BEQ PCMDI 
RTI 
JSR PRNT 
DEC IRCHOS 
DEC IRCHOS 
JMP OPD1 
CLR IRCHOS 
LDA #PRTLED 
JSR LEDOFF 
JMP DISSA 
JSR ENSB1 
LDA IRCHOS 
CMPA #$O2 
BGE 1% 
LDX AIDLTMR 
STX ENTIMR 
RTS 
INC IRCHOS 
INC IRCHOS 
LDA #PRTLED 
JSR LEDON 
JSR ENSB1 


LDX 


#1 


Page 14-1 


-YES 
PRINT ORDER? 
-YES 
-NOs MUST BE INVALID 
IDLE PENDING? 
-~NO» OK TO START PRINTING 


—-YESs FINISH IDLE FIRST 


—-YESs LEAVE IDLE TIMER ALONE (MAY HAVE BEEN 
COMPLETING IDLE WHEN DISABLED) 
“NOs RESTART IDLE LOOP 


TURN ON "PRINT IN PROCESS" LED 


CLEAR STATUS & TURN OFF DISABLE LED 


ISIFP 


CRO809/11 version 10.236.-20 
TYPE A RS=—232 PROGRAM 


ELF? 
E1F9 


E1LFA 
EL1FC 
E1FF 
E201 
E204 


E205 
E208 
E2GB 
E20D 


QF 
39 


SE 
BD 


39 


45 


BF 
F3DF 


E3A5 


4800 
EA2? 
40 


ISTFP.SRC 


193 
194 


796 
797 
798 
799 
800 
801 


803 
8C4 
805 
806 


55-Mar-84 


ENSB1 


ENATST 


Page Lasoo 


#DISLED TURN OFF DISABLE LED 


8249256 
STX ENTIMR 
RTS 
LDA 
JSR LEDOFF 
LDA HINCEC!I+IR) 
JSR SBTOFF 
RTS 
LDX #HRDSTAT 
JSR RDSTSB 
BITB #SOP 


RTS 


ALL STATUS BITS OFF EXCEPT IR & EC 


FETCH SOP 
SET Z-BIT IF NO SOP 


ISIFP CRO809/11 version 10.36.20 
TYPE A RS=-232 PROGRAM ISIFP.SKC 
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808 OOo oi ok oii ooo oid ioisiois iii doiuiioiiioick i ick oiaiii gis 


809 x IDLER’ IS THE ENABLED AND IDLE SUBROUTINE 
810 BE KK OK EK AK OC IS OI ae ae aie ae aie ofc ait ae ak ate ik oie 2c ie ie NC Oe oie 2K i oe aie a ae oie ate oie ate ok af ake ak ale ake ok ok afc oe aye ale ae ik aK ake aK ok a ok ak ok ok 
8li+ IDLER ION | 
E20E 1C BF 812A ANDCC  #!NFBIT | 
E210 BD E22E 813 JSR CMPTCK CHECK TOP AND BOTTOM BOARD FIRMWARE COMPAT. 
E213. BD FOC4 814 10% JSR DEVCHK PRINTER READY ? 
E216 25 10 815 BCS 40% -NO,y REPORT IR SET STATUS TRANSITION 
816 
E218 86D EO8B 817 JSR TSTSW CHECK TEST SWITCH 
E21B 8D E996 818 30% JSR DLY2MS 
819 
820+ IOFF 
E21E 1A 50 821A GRCC #FBIT!+IBIT 
E220 9E 45 822 LDX ENTIMR 
E222 30 1F 823 LEAX -15X 
E224 OF 45 824 STX ENTIMR TIMER DECREMENTED TO ZERO ? 
E226 ©6026 Eb 825 BNE IDLER -NO,s DO IT AGAIN 
826 
E228  8E 3F00 827 40% LDX #IDLTMR “YES, REINITILIZE TIMER COUNT 
E22B OF 45 828 STX ENTIMR 
E22D 49039 829 RTS 


ISIFP CR6809/11 version 10.36.20 5-Mar-84 8:49:56 Page 16 
TYPE A RS=—232 PROGRAM ISIFP.SRC , 


831 AGOGO OIG GiGi oI aii iia ai acl g i i aki akeak akc ak a ake ak ak ake ak 






832 * CMPTCK 
833 
834 * FIRMWARE COMPATABILITY CHECK ROUTINE 
835 
836 8 * CHECKS TO MAKE SURE THE BOTTOM BOARD SOFTWARE AND THE TOP BOARD 
837 8 * FIRMWARE ARE FOR THE SAME MODEL PRINTER. 
838 
839 * BOTTOM BOARD BUFFER SIZE TOP — BITS 4959697 IN ID BYTE(OC) 
840 
841 * 1920 0101 
842 +* 3440 1111 
843 * 3564 1101 
844 
E22E 34 06 845  CMPTCK PSHS AyB 
E230 Fe OOOC 846 LDB ID LOAD UP TERMINAL I) 
E23e 8 -C4s OF 847 ANDB #SOF MASK OFF BOTTOM 4 BITS IN ID 
848 
=0002 849 TPE BUFSIZ~2 
850 CMPB #$05 MODEL=2? 
851 BEY CMPRTS YES» RETURN 
852 ENDIF 
=0000 853 [Fe BUFSIZ=-4 
E235 Cl OF 854 CMPB #$ OF MODEL=4? 
E237 27 13 855 BEQ CMPRTS YES s RETURN 
856 ENDIF 
=FFFF 857 IFE BUR SIZ =o 
858 CMPB #$ 0D MODEL=5? 
859 BEQ CMPRTS YESs CONTINUE 
860 ENDIF 
861 
E239 86 10 862 LDA #310 NOs SET BIT 4 IN ERROR BYTE 2 TO INDICATE FIRMWARE 
E23B BD E3B9 863 JSR EBT2O0N COMPATABILITY ERROR. | 
864 
E23E ~° 5D | 865 1Sae (C TERMINAL ID=0? 
EZSF\ U2r 00 stn, BEG BEQ  .—-CMPRTS YESs JUST RETURN WITH ERROR CODE SET 
a < ee oe Fi 
- Se ea ee ee = 
BD F3DP\. 870 JSR LEDGFF TURN OFF READY LED 
E249 7E F46A NO 871 JMP CHECK TURN ON CHECK LED AND HANG 
872 
E24C 35 05 873  CMPRTS PULS AsB 


E24E 39 874 RTS 


ISIFP 


CR6809/11 version 10.36.20 


TYPE A RS=-232 PROGRAM 


E24F 
E251 
E254 
E257 


E25B 
E25D 
E260 


E263 
E265 
E268 
E26B 
E26E 


E270 
E272 


E274 
E277 
E27A 
E27C 


E27E 
E28el 


E283 


E286 


E289 
E28B 


EZoE 
E290 
E293 
E295 


E298 


86 
BD 
BD 


6&0 
E3BlL 
E9BS 


1026 13F7 


86 
BD 
TE 


86 
5D 
BD 
BD 
27 


GL 
26 


TF 
Bo 


26 


05 
F31F 
F6O52 


40 
E3B1 
E372 
E387 
28 


06 
24 


1561 
0017 


1A 


1576 
OB 


G002 
1576 


E355 


Ol 
1561 


F3E9 


a 9 fo 


ISTFPeSRC 


876 
877 
878 
879 
880 
8861 
882 
883 
884 
885 
886 
867 
888 


890 
891 
892 
893 


897 
898 
899 
$00 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
em 
912 
913 
914 


915 


916 
917 
918 
919 
920 
921 
922 


D-Mar-84 


8:49:56 


Page 17 


BCCI oi doko iok daikaiai deg gok dade i dak aka dea cae akc ak a ak 


xc 
* 


RESCMD 


* 


SSACMD 


2 


24 


1% 


FR 


KK 


THE STARTOQP ROUTINE. 


THE NEW COMMAND * 


IN THE ORDER BYTE IS PERFORMED. | * 
OR OK KI CC CI I GR ko aca koa 2 ii ake a ai ak ok 2k ak ak fe ok a ak akc ok 


LDA #$80 
JSR EBITON 
JSR DEVTST 
LBNE ABOPRT 
LDA HCR 
JSR OUTCH 
JMP ABOPRT 

SSA ORDER ** 
LDA #$40 
JSR EBITON 
ISB HEXTST 
JSR MODCHK 
BEQ 1$ 
CMPA #$06 
BNE 1$ 
CLR SLUSND 
LDA ORDRPM 
CMPA #%02 
BNE 13 

SEND STATE 
LDA PASAV 
BEQ 24 
STA KEYIC 
CLR PASAV 
LDA #1C14+0C 
JMP FINALL 
LDA #1 
STA SLUSND 
LDA #ALARM 
JSR LEDON 
JMP STOPPR 


NOTE RECEIVED A RESET 
PRINTER READY ? 
~NO»s CAN'T WAIT 


RESET PRINTER CSEND CR) 


~YES+ NOTE THIS IN ERROR CODE 
MODE=0?, THEN CLEAR TABS 
“~YES»s DONE 
LUL MODE? 
“NOs DONE 


INITIALLY CLEAR FLAG 


-SLU SEND STATE? 
NOs CONTINUE 


PENDING PA INFO? 
“NOs ENTER SEND STATE 


~YESs RETURN IT 


“YESs SEF SLU SEND STATE FLAG 
RING THE BELL 


LEAVE 


972 





ISIFP CR6809/11 version 10236220 55-Mar-84 8:49:56 Page l/7-1l 
TYPE A RS=—232 PROGRAM ISIFP.SRC 
E29B BD E387 924 PRNT JSR MODCHK MODE = Q ? 
E29E 26 06 925 BNE PRT1 
926 
E2A0 BD E372 927 JSR HEXTST 
E2A3 7E E353 928 JMP STOPPR -YES»s HALT 
929 
930+ PRT1 ION TURN INTe ON 
E2A6 1C BF 931A ANDCC HINFBIT 
E2A8 BE 0014 932 LDX ML “NOs MESSAGE LENGTH = OQ? 
E2AB 26 06 933 BNE 5% ~NOePRINT 
934 | | 
E2AD BO E372 935 JSR HEXTST =-YES»s DONE 
E2BO 7E E353 936 JMP STOPPR 
937 , 
E2B3 B6é 0000 9338 5$ LDA STATUS IR SET IN STATUS ? 
E2B6 85 08 939 BITA #IR 
E2B8 2¢ OE 940 BEQ oe: -NO»s DO PRINT 
941 
E2BA Bb E9B8 942 JSR DEVTST —-YESs DEVICE READY ? 
E2BD 1026 0092 943 LBNE STOPPR -~NOs RETURN OCsIR -==—> DONE 
944 
E2Cl BD FIBE 945 JSR CLRIR -“YES»s CLEAR IR AND REPORT IT BACK 
946+ SwW3 
E2C4 L13F 947A SWI3 SWI3 EMULATES A POLL DISABLE 
E2C6 1C BF 949B ANDCC HINFBIT 
950 | 
E2C8 B6 COl1l1 951 8 $ LDA MODE2 
E2CB 84 O07 952 ANDA #MODMSK 
E2CD 81 06 953 CMPA #LUIL1 -NOs LUL MODE ? 
E2CF ef le 954 BEQ 2% “YES» DO LULL PRINT 
955 
956 *¥ ** LUZ PRINT ** 
957 
E2D1 TF 1569 958 CLR CANFLG RESET CANCEL FLAG BEFORE DOING LU3 PRINT 
E2D4 BD F1FO 959 JSR PCRL LU3 ALWAYS STARTS IN COL. 1 
960 
E207 BD E3CL 961 JSR LUZBPRT DOQQ LU3 PRINT 
E2DA Bo OO1L 962 LDA MODE2 LOAD UP MODE 
E2DD 85 10 963 BITA #410 A HAS MODEs CHECK FOR OPERATOR INITIATED LOCAL PRNT . 
E2DF 2¢ O08 964 BEQ 1$ IF BIT 3 NOT SET» CONTINUE a 
965 ’ 
b2EL Fo 1568 966 LDB AUTOSW CHECK TO SEE IF AUTO-FF ON 
E2E4 2¢7 03 967 BEQ 1$ IF NOT SET» CONTINUE 
968 
E2E6 BD E4A2 969 JSR FFLU3 ELSE SEND FF 
E2E9 BD E372 970 1$ JSR HEXTST 
E2EC TE E353 971 JMP STOPPR 





1020 


ISIFP CRO809/11 version 10-36-20 9—~Mar-84 8:49:56 Page l/-2 
TYPE A RS=-232 PROGRAM ISIFP.SRC 
973 *  ** LUL PRINT ** 
974 
E2EF B6é 1569 975 2$ LDA CANFLG CHECK TO SEE IF CANCEL SWITCH HAS BEEN 
E2F2 2/7 OC 976 BEQ 3% PRESSEDs IF NOTs GO ON WITH LUL PRINT 
977 
E2F4 7F 1569 978 CLR CANFLG CLEAR CANCEL FLAG TO ACKNOWLEDGE CANCEL SWITCH 
E2F?¢ Bo 0017 979 LDA ORDRPM CHECK PRINT ORDER PARAMETER | 
E2FA 85 40 980 BITA #340 TO SEE IF FSFIC. 
E2FC 1027 1338 981 LBEG CANSB2 ELSE, GO TO CANCEL SUBROUTINE 
982 
983 * SET UP LUL PAPER MOTION PARAMETERS AND MARGINS 
984 
985 
986 34% TST BIPRNT BIDIRECTIONAL PRINT ? 
987 BEQ 35% -NOQs HANDLE NORMALLY 
988 
990 STA DULCAS 
991 
E30A 70 C196 992 35% TSI. CONFIG ARE WE IN MICRE PROPORTIONAL SPACE MODE? 
E30D 26 OD 793 BNE 45 -YESs DON'T TRY TO FIND HORIZ. POSITION 
994 
E30F Do 30 995 LDB HP 1 
E311 5A 996 DECB 
E312 Dl 57 997 CMPB CLCNT5 LUL COLe POS = DEVICE POSITION? 
E314 2f 06 998 BEQ 4% —“YESs START THE PRINT 
999 
E316 BD FIFO 1000 JSR PCRI “NOs HOME THE HEAD AND eee 
E319 BD E56A 1001 JSK SPACES SPACE QUT 
Bs 1002 
E31C 32 62 1003 44 LEAS 29S REMOVE JSR TO PRNT FROM STACK 
E31E B6 0017 1004 LDA ORORPM 
BSc i 85 40 1005 BITA #$40 FSFIC? 
E323 2¢ 06 1006 BEQ 50% “NOs CONTINUE LULL PRINT 
1007 
E325 BD E918 1008 JSR EMTEBF ~YESs PRINT ESC SEQ. BUFFER 
E328 BD EO6B 1009 JSR SETSTK RESTART LJ1 
1010 
E32B BE OO1l2 1011 50% LDX MSA STORE MESSAGE STARTING 
E32E BF 1562 1 8 STX BUFPT1 ADDRESS IN BUFFER POINTER 
East BE OO14 L013 LDX ML STORE MESSAGE LENGTH IN 
E334 QF 4B 1014 STX MLSAV SAVE AREA 
E336 3B 1015 RTI "RETURN® TO LUILMSG 
E337 BD E3?/2 1017 INVALD JSR_ HEXTST 
E33A BD E387 1018 JSK MODCHK ORDER IS INVALID IF MODE IS NONZERO 
E33D 2f 14 1019 BEQ © STOPPR -~MODE=0 


CR6809/11 version 10.36.20 


E33F 
E341 
E344 
E346 
E349 
E34B 
E34E 
E350 


E353 


E355 
E358 
E35A 
E35D 


E35E 
E360 
E363 
E366 
E369 
E36C 
E36F 


ES¢Z 
E375 
E377 


E379 
E37B 
E37E 
E3é1 
E383 
E386 


86 
BD 
86 
BY? 
36 
BD 
36 
TE 


BB 
26 
86 
BD 
86 
BD 
39 


TYPE A RS=-232 PROGRAM 


TF 
F3E9 


20 
E39C 


F3DF 


Ol 

E3B1 
E367 
1561 
E372 
E3903 
F652 


EOCL 
OD 


FE 
F 3DF 
EA84 
FE 

F3E9 


1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 


1030 
1031 
1032 
1033 
1034 
1035 


1037 


1038 © 


1039 
1040 
1041 
1042 
1043 


1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 


1056 


5-Mar-84 


STOPPR 


FINALL 


ABOCMD 


HEXTST 


10% 


8:49:56 Page 17-3 
LDA HALARM 
JSR LEDUN RING BELL ON PARAMETER ERROR 
LDA #O4 : 
STA SENSE LGAD SENSE BYTE WITH tINVALID COMMND * 
LDA REGIS DT 
JSR EBITON 
LDA HOC!+EC!+SD0T SEND OCsECsSENSE DATA AVAILABLE 
JMP FINAL1 | 
LDA HOC 
JSR SBITON SET STATUS TO IBM 
LDA #PRTLED 
JSR LEDOFF 
RTS GO DISABLED 
LDA #SO1 
JSR EBITON 
JSR MODCHK IF MODE=Os5 CLEAR TABS 
CLR SLUSND 
JSR HEXTST 
JSR STOPPR 
JMP ABOPRT ABORT COCMPLETEDs GO DISABLED 
JSR GETSW 
CMPE #OS 
BNE LO$ 
LDA #RDYLED 
JSR LEDOFF TURN OFF READY LED 
JSR HE XDMP 
LDA FRDYLED 
JSR LEDON TURN READY LED BACK ON 
RTS 


ISIFP 


TYPE A RS=-232 PROGRAM 
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E387 
E38A 
E38C 


E38E 
E391 
E394 
E396 
E399 


£398 


OO1l 


OD 


1561 
1576 


E3A5 
04 


ISITFP.SRC 


1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 


55-Mar-84 


se 
4° 
m4 


MODCHK 


14% 


8249256 


MODCHK TURNS INTERRUPTS OFF !!! (VIA SBTOFF) 


LDA 
ANDA 
BNE 


CLR 
CLR 
LDA 
JSR 
ORCC 
RTS 


MODE2 


#MODMSK 


1$ 


SLUSND 
PASAV 
#IC 
SBTOFF 
#ZBIT 


Page 17-4 


-NO>» 


PRINTER SLU GOES TO RECEIVE STATE (SLUSND=0) 


RETURN 


CLEAR PENDING PA INPUT 


IN BOTH KEYIC BYTE, 


STATUS BYTE 
SET Z-BIT 


AND 


CR6809/11 version 10.3620 
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TYPE A RS—232 PROGRAM ISIFP.SRC 

1070 ae eae a ae ae ake ake ae ie fe ake ake ac af akc ofr ak ake akc ate ai afk ok ake ai ake ake ake 2k ake ake ae aie af ic af of ake aie ae aie af ok ae ak ok aie ake akc afk ak ak ok ak ok ak ok 
1071 x 'SBITON' TURNS ON STATUS BITS ACCORDING TO THE x 
1072 * BITS TURNED ON IN ACCA. CINT'S ARE LEFT OFF) x 
1073 ate ae aK ae os ok ake ak afk ake ak ake oie aie ake ae ake ok ke ake a ke afk ake ake af afc ake alk ake ai oe ale ake of ake ok of akc ate ac a ok ake ake ae aks fc ake ake of ake ok ae ok ak aK ak ok 
1074 : 7 
1075+ SBITON IOFF 

E39C 1076A ORCC #FBIT!+IBIT 

E39E LO77. ORA STATUS 

E3Al 1078 STA STATUS 

E3A4 1079 RTS 
1080 

_” LO&l ste ake ake akc oe ak fe ak ake ake a ake ake afc ake ak ae ake afc akc ke akc afk akc fe ak ofc a akc ake ake ake ake ake ake af ake ok ak ae ae ade ake ae ake a ole ok ate ake oe ok ak ok ake ok oe ok ok ak ok 

1082 * 'SBTOFF* TURNS OFF STATUS BITS ACCORDING TO THE BITS* 
1083 x TURNED ON IN ACCA. CINT'S ARE LEFT OFF) 
1084 3K KK ee a i ake aie oe i ak oe ote oe aK 2 ae ok ake fe he ake ake oe ae oh oie a ae he ke ake aie ai ake eae he ake 2 ote ae he ake ake ke ale ah ok he he he ake ah abe ok ok 
1085 : 
1086+ SBTGFF IOFF 

E3A5 LO87A ORCC #FBIT!+IBIT 

E3A7 1088 COMA 

E3A8 1089 ANDCC #!N(CBIT) CLEAR CARRY 

E3AA B4 0000 1090 ANDA STATUS | 

E3AD B7 0000 1091 STA STATUS 

E3B0 39 1092 RTS 
1093 
1094 ate se ae ok ale oie ake afc afk of afc ake age ake of afk fe fe ke ak ake ak ake ak fe a fe of ok ake a ake ae ake ae ake ake ok ake ake ake ake ake ake ofc ke ok ke ake ok oe ake ok fe ake fe ke ake ake ole ae ak of 
1095 * "TEBITON' TURNS ON ERROR CODE BITS ACCORDING TO THE * 
1096 * BITS TURNED ON IN ACCA. Xe 
1097 ste akc ake ae ake ak afc ake ake oe afk ake ofc ake ake ak ale ak fe afc ae ak ale ake ale ake age ake ae ak af a ke ake ae 2 ake ofc ake ake she afc ake ake ae af af of ae ake ate of afc ake ok ke ake ok ake ake ae ak ok 
1098 | 

E3Bl 34 02 1099 EBITON PSHS A 

E3B3 9A 3D 1100 ORA ERRCOD 

E3B5 97 3D 1101 STA ERRCOD 

E3B7 35 8&2 1102 PULS AsPC 

E3B9 34 02 1104 EBT20N PSHS A 

E3BB 9A 3E 1105 ORA ERRCOD+1 

E3BD 97 3E 1106 STA ERRCOD+1 

E3BF 35 82 1107 PULS AsPC 


ISIFP 


TYPE A RS=232 PROGRAM 
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E3C1 
E3C2 
E3C5 
E3C? 


E3C9 
E3CA 


E3CC 
E3CF 
E3D1 
E3D3 


-E3D4 


E3D6 


E3D8 
E3D9 


E3DB 
E3DE 
E3E1 


E3E3 
E3E5 
E3E7 


Pac 
E3EB 
E3EC 
E3EE 
E3F1 


E3F4 
E3F 7 
E3FA 
Eoe'v 


E3FD 
E3FF 
E401 
E405 


97 
Di? 


1083 1000 


23 


O01? 


Ol 


39 


1567 
06 
04 
Ol 


37 


C198 
0018 
09 
04 
03 
89 
31 
0014 
0015 
0013 
0012 
01 


49 
4A 


05 


ISIFP.SRC 


1109 
1110 
Lill 
1112 
1113 
1114 
i 
1116 
1117 
1118 
1119 
1120 
Lidl 
biged 
1123 
1124 
| as 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
L139 
1140 
L141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
biot 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 


1160 


55-Mar-84 


ne: 


LU3PRT 


1$ 


8249256 


Page 19 


TEST FOR HONOR CONTROL CHARS) ¥**% 


CLRB 
LDA 
BITA 
BNE 


COMB 
STB 


ASSUME NO HONOR OF CONTROL CODES 


OQRDRPM GET ORDER PARAMETER BYTE 

#301 HONORING CC'S? 

1$ -NOsBR IF NOT HONORING CC 
, “YESs FLAG IS NONZERO 

CONTL 


* ** TEST FOR DUAL CASE ** 


34% 


te 
a 
* 


4% 


5S 


LDB 
ANDA 
BEQ 
CLRB 
ANDA 
BEQ 


INCB 
STB 


SETTING OF SWITCHs L=DUALs O=MONO(DEFAULT) 


CASESW FIND QUT 
#$06 BITS 5 © 6 CLEAR: 2 
34 -DEFAULT TO MACHINE SETTING 
#404 “NOs: BET 6 CLEAR? 
3$ ~YES,y UPPER CASE ONLY 

=O: DUM: “CASE 
DULCAS O=MONOCASEs 1L=DUALCASE 


FIND LINE LENGTH ** 


LDB 
LDA 
BEQ 


PSHS 
CMPA 
BCC 


TFR 
TSTA 
STB 
LDA 
LDb 


ADDB 
ADCA 
BCC 
RTS 


TEST FOR MESSAGE ADDR > THAN 


STA 
STB 


CMPD 
BLS 


MAXLEN 

MPP GET MAX. PRESENTATION POSITION 
4G BR IF MPP=O_, DEFAULT TO MAX LINE LENGTH 
B MPP = 132 ? 

9St 

44 BR TF MPP >= MAX LINE LENGTH 
AsB SET B = MPP 

MPP3 | 

ML GET MESSAGE LENGTH IN AB 

ML+1 

MSAt1 ADD MESSAGE STARTINNG ABDRESS 
MSA 

64% 


CARRY SET MEANS OVERFLOW ERROR 


BUFFER END ** 


MSGEND PUT RESULT IN MESSAGE END ADDRESS 


MSGEND+1 


#BUFEND COMPARE WITH END OF BUFFER 
1% BR IF MSG <= BUFFER 


ISIFP 


TYPE A RS=—232 PROGRAM 
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E407 
E40A 


E40C 
E40F 
E412 
E415 
E418 
E41A 
E41C 
E41E 


E420 
E423 


E425 


8E 
9F 


1000 
49 


E426 
0012 
1564 
E4AA 
OB 


38 
Ol 
05 


E49C 
FO 


ISIFPeSRC 


1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
li/2 
1173 
1174 
gs Re 
1176 
1177 
1178 


5-Mar—-84 


7% 


9% 


10% 


8249556 

LDX #BUFEND 
STX MSGEND 
JSR ATRSUB 
LOX MSA 
STX BUFPT3 
JSR PRLINE 
BCS 11$ 
LDA LSTCHR 
CMPA #EMDBC 
BEQ 113 
JSR CHKEND 
BNE 94 

RTS 


11% 


Page 19-L 


CAN'T PRINT PAST END OF BUFFER, 
BUFFER END THE MESSAGE END 


SO MAKE 
SEARCH FOR AN ATTRIBUTE : 
SET BUFFER POINTER TO STARTING ADDRESS 


PRINT A LINE 
CARRY SET MEANS PRINTER DEAD 


WAS LAST CHAR. AN END OF MESSAGE? 
“YESs STOP PRINT 
-NOs CHECK FOR END OF MESSAGE ADDRESS 


MESSAGE NOT DONEs PRINT NEXT LINE 


MESSAGE DONE 


[SLE 


TYPE A RS=-232 PROGRAM 
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E426 
E428 
E428 
E42D 
E42F 
E431 


E433 


E435 
E437 
E439 
E43B 
E43D 


E43F 
E441 
E443 
E445 


E447 
E449 


OC 
35 


ISIFPeSRC 


1180 
1181 
1182 
1183 
1184 
1185 
1186 
118? 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
L199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
120? 


5-Mar- 


84 8:49:56 
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EO CIO ICICI IOI ROK a a II Ra A a I AR I I aK a a a Ik I a a ak 2 aie ak ak a akc ae ak akc akc ak aie ai ae ak ak 


3 


1$ 


2% 


SUBROUTINE TO DO BACKWARDS SEARCH FOR AN ATTRIBUTE 


ME AE OE 2 ae ak 2K a Ig ae aK Oe a ae ie a AC 2 OK 2K IE AE OC CS 2K AE OS A Oe ae I 2K aE aK Oe ie a 2 ie i a a 2K ae 3K a a OK 


CLR DSPFLG 

LD xX MSA 
PSHS 4 

LDA 2X 
CMPA #SCO 
BHS 34 

LDX MSGEND 
LDA 9~X 
CMPA #$CO 
BHS 3$ 
CMPX 95 

BNE 1$ 
PULS Xo PC 
ANDA #EOC 
CMPA #SOC 
BNE 24 

INC DSPFLG 
PULS XoPC 


DEFAULT DISPLAY FLAG TO PRINT 


CHECK MSA FOR AN ATTRIBUTE 
ATTRIBUTE? 
~ YES« DONE 
~- NOs DO THE BACKWARD SEARCH 
FETCH DATA BYTE 
ATTRIBUTE? 
-YESs DONE SEARCHING 
DONE LOOPING YET? 
—~NO« KEEP LOQKING 
—~YES, DONE 
ONLY LOOK AT NONPRINT ATTRIBUTES 


NONPRINT? 
~NOs DONE 


“YESs SET NONDISPLAY FLG 
AND RETURN 


ISIFP 


TYPE A RS=-232 PROGRAM 


CR6809/11 version 10.36.20 


E44B 
E44E 
E44F 


E451 
E453 


E455 
E457 


E459 
E456 


E45D 
E460 


E462 
E464 


E466 
E468 


E46A 
E46C 
E46E 
E470 
E472 


BD 
40 
27 


81 
24 
OD 
26 
81 
23 


TD 
26 


E583 


38 


CO 
25 
43 
2F 
07 
16 
1589 
OA 
3F 
06 


ISIFP.eSRC 


1209 
1210 
i211 
1212 
1213 


1215 
1216 
1217 
L226 
P29 
1220 
1221 
1222 
L223 
1224 
LZc 
1226 
122? 
1228 
Lec? 
1230 
1231 
1232 
1233 
1234 
1235 
236 
1237 
1238 
1239 
1240 
L241 
EAaZ 
1243 
1244 
1245 
1246 
124? 
1248 


5—-Mar—-84 


ale 
ce 
ale 
ba tad 
ste 
7 
* 


He te Ht tH 


at 


cok ok kick a loioik kook gaiok ik look oki ok gk dolokgkgigk kok idokgok gical acak ae a ak ak ak 


TSTCHR 


1% 


8349256 


FOR SPACES s 


JSR 
TSTA 
BEQ 


CMPA 
BCC 


TST 
BNE 


CMPA 
BLS 


TST 
BNE 


CMPA 
BLS 


TST 
BNE 


ORA 
STA 
CMPA 
ANDCC 
RTS 


0 0 PRINTABLE 
GC L SPACE 
1 0 CC 

1 1 NULL 
GTAINC 

6$ BR IF A NULL 

#$CO 

3% BR IF AN ATTRIBUTE 

DSPFLG 

5 $ BR IF NON-DISPLAY FIELD 

#LO7 

24 BR IF CONTROL CHARACTER 

BIPRNT DOING BIDIRECTIONAL PRINTS 
1$ “YESs ALWAYS DUAL CASE 
#3 3F CHARACTERS NUT FOLDED? 

1% - YES» CONTINUE 

DULCAS DUAL CASE ? 

1$ - YESs CONTINUE 

#20 - NOs FOLD 

LSTCHR 

#SPDBC 

#IN(CBIT) CLEAR CARRY 


Page 2l 


RC OO GSC om riCgG I Roi roi io lai ick aisicki icici i icici a ake 
“TSCHR* 


GETS A CHARACTER FROM THE INTERFACE BUFFER AND CHECKS * 


NULLS» CC'S, AND PRINTABLE CHARACTERS. 
NITH THE CHARACTER IN ACCA AND THE CARRY AND ZERO BITS SET AS 
FOLLOWS: 


IT RETURNS 


ate 
3 
i 


3 
x 
Kk 
Ke 
xc 
sd 
x 


CR6809/11 version 10-36-20 


E473 
E475 


E477 
E47A 
E47C 
E47D 
E47F 
£481 


E483 
E484 
E486 
E488 
E489 
E48C 


E48E 
E490 


E492 
E494 
E496 
E498 
E499 
E49B 


E49C 
E49F 
E4A1 


OD 
26 


TYPE A RS-—232 PROGRAM 


39 
1F 


E488 
04 


OC 
OC 
Ol 


43 


04 


158A 
O04 


39 
O4 
10 
D6 
38 


Ol 


1564 
49 


1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
12/2 
1273 
1274 
1275 
1276 
l2?¢? 
1278 
1279 
1280 


5-Mar—-84 


2% 


34% 


44 


oS 
64% 


6545 


(S$ 


CHKEND 


8249256 Page 22 
TST CONTL 
BNE ¢$ BR IF HONOR CC 
JMP 5 $ 
PSHS B 
CLRB 
ANDA #SOC 
CMPA #ZOC NO DISPLAY FIELD 
BNE 4$ 
COMB 
STB DSPFLG 
PULS B 
CLRA 
TST NLSOVD NULL LINE SUPPRESS OVERRIDE SET ? 
BNE 65% “YESs TREAT NULL AS SPACE 
LSP... CONTL | 
BEG t$ “NOs HONORING CONTROL CHAR. ? 
LDA #SPOBC 
BRA it ~YESs MAKE NULLS SPACES IF HONOR CC 
STA LSTCHR 
TSTA 
ORCC #CBIT SET CARRY 
RTS 
LDX BUFPT3 
CMPX MSGEND 


RTS 


ISIFP CR6809/11 version 
TYPE A RS=232 PROGRAM 


E4A2 
E4A5 
E4A7 


BD F1FO 
86 C2 
7E F2oD 


ISIFP.SRC 


10.36.20 


1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 


55-Mar-64 8:49:56 


BOOK ak ak ie ak ak ak ake a ak 
: 


*FFLU3° 


LINE. 


Page 23. 


PORICGS SIGCSE GHGS SGC GGG Ram ia tok giokg 
PERFORMS AN LU3 SOFTWARE FORM FEED. IT IS 
CALLED WHEN A NGRMAL FF OCCURS AT THE FRONT OF A 


* 
otk 
2K 


JO RIG RG RI GiGi koi ok gk GIO OR a ak ag kok kok kaki ak ok ak ako ica ak ak ak ak ok 


FFLU3 


JSR 
LDA 
JMP 


PCR1 
HF F 
OUTCHR 


END CURRENT LINE 


—CMPA 


#CRDBC 


ISIFP CR6809/11 version 10.36.20 5-Mar-&84 8:49:56 Page 24 
TYPE A RS—232 PROGRAM ISIFPSSRC oo 
1292 MEE AE KO 2K AG A A CE OK OC iE ae 2 ic 2 ie ak ate 2 afc 2 fe 2K ik OK ate 2S ak OK oie aE ai I af OK ee ak 2 oe ae oie aK ok ik ake a oe OK ok ae ak oie oe ok ok 
1293 | | 
1294 * PRINT ONE LINE IN LU3 MODE 
1295 
1296 MK ae ake fe fe ae aie ik ake ae af ok ate aie ae ak a aK aig aie ae ak ake ke aie oc ok ake ake ak ake ake eke ake ok ke ake ok ck ok ke akc ak ak ak coke ake ake ake ake ak ie ak ak ake a 
E4AA 5F 1297 PRLINE CLRB CLEAR COLUMN COUNT 
1298 | 
1299 * TEST FOR FORM FEED 
1300 | 
E4AB BD E57D (1301 JSR GETCHR 
E4AE 81 02 1302 CMPA #HFFDBC 1ST CHARACTER A FORM FEED? 
E4B0 26 OB 1303 BNE 1% “NOs GO ON. | 
E4B2 30 Ol 1304 LEAX LyX re eee 
E4B4 BF 1564 1305 STX  BUFPT3 co 
E4B7 BD E4A2 1306 JSR FFLU3  <-YESs START A’ NEW FORM 
E4BA 24 08 1307. BCC. 2% a or 
E4BC 39 1308 RTS 
1309 
1310 * NULL LOOP 
| 1311 : 
E4BD BD E44B 1312 1$ JSR TSTCHR 
E4C0 24 14 1313 BCC 11$ BR IF DISPLAYABLE 
E462 26 23 1314 BNE 21% BR IF CC : 
E4C4 BD E49C 1315 2% JSR CHKEND NULL» END OF MESSAGE YET? 
E4C7 27 05 1316, BEQ 3% -~YESs LEAVE | | 
E4C9 5C 1317 INCB a -NOs INCREMENT COLUMN POSITION | 
E4CA D1 31 1318 + CMPB MPP3 END OF LINE? | —— 
E4CC 26 EF 1319. BNE: L$ -NOs DO .NEXT CHARACTER 
E4CE 1C FE 1320 34. ANDCC #!N(CBIT) — ‘CLEAR CARRY. ‘. : 
E4D0 39 1321 RES Ee Mee ge -_ oa 8 
1322 ee ee ee Be . 
1323. * SPACE CHARACTER LOOP . °° 
1324 _ we 
E4D1 BD E44B 1325 10% ISR 2%, TSTCHR:< Ras 
E4D4 25 OF 1326 BCS 20% °-° BR IF-CC 
E4D6 26 30 1327 11$ BNE 30% © BR IF DISPLAYABLE CHAR 
E4D8 BO E49C 1328 L2$ JSR CHKEND SPACEs END OF MESSAGE YET? 
E4D8 27 05 1329 BEQ 13$ | 
E4DD 5C | 1330 INCB -NOs INCREMENT COLUMN POSITION 
E4DE O1 31 1331 CMPB MPP3 END OF LINE? | 
E4E0 26 EF 1332 BNE > 10% -NOs» DO NEXT CHARACTER 
E4E2 7E F1EB 1333 13% JMP PLE -YES» DO LINE FEED AND LEAVE 
_ 1334 | - | | | 
| 1335 * NULL AND SPACE LUOGP 
- : 1336 : 
E4E5 27 Fl 1337 20% BEQ 12$ © = BR IF A NULL 
E4E7 81 03. 1338 21% CMPA #NLDBC NEW LINE? © 
E4E9 26 03. 1339 BNE 7$ NOs CONTINUE | 
7 | 1340 | ae es 
E4EB  7E F20D 1341 JMP OUTCHR 
| , # 1342 | 
E4EE 81 05 1343 #8 7$ 


CARRIAGE RETURN? 


